extern int ztgex2_(logical *wantq, logical *wantz, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *j1, integer *info);
/*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: zlassq_ 14 5 4 9 4 7 7 */
/*:ref: zlartg_ 14 5 9 9 7 9 9 */
/*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
